home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 213 / 213.d81 / b.camel trek (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  10KB  |  328 lines
  1. 10 poke53280,6:poke53281,6:print""
  2. 20 print"[147]";tab(9)"**********************"
  3. 30 printtab(9)"*[144]    [195][193][205][197][204][160] [212][210][197][203]     *"
  4. 40 printtab(9)"**********************"
  5. 50 gosub2790
  6. 60 printtab(18)"[159]by r.w. kober[154]"
  7. 62 print"[144][204][207][193][196][211][212][193][210] is not public domain."
  8. 64 print"[144][208]lease respect the author's rights."
  9. 70 ford=1to3500:next
  10. 80 tr%=0:tc%=0:td%=0
  11. 90 forsc=1to20:print"":next
  12. 100 print"[144] [215]ould you like some instruction as to"
  13. 110 print" how this game is played??  y or n [154]"
  14. 120 forsc=1to5:print"":next
  15. 130 getd$:ifd$="n"then420
  16. 140 ifd$<>"y"then130
  17. 150 print"[147][144][215]elcome to [195][193][205][197][204][160][212][210][197][203]. [212]he object is to"
  18. 160 print"travel across the great [199]obie desert---"
  19. 170 print"a tribe of cannibalistic pygmies will"
  20. 180 print"be chasing you.------------ [217]ou will be"
  21. 190 print"asked for commands to continue play."
  22. 200 ford=1to1000:next
  23. 210 forda=1to40:print"-";:ford=1to100:next:next
  24. 220 poke198,0:print"[154]   your choices will be as follows."
  25. 230 gosub2400
  26. 240 print"     <press a key to continue>"
  27. 250 ifpeek(197)=64then250
  28. 260 :
  29. 310 poke198,0
  30. 320 print"[147][144][217]ou have 1 quart of water which will"
  31. 330 print"last you 6 drinks. [217]ou may refill your"
  32. 340 print"your canteen at an oasis. [217]ou will get"
  33. 350 print"1/2 quart if your miracle occurs."
  34. 360 print"[201]f you hope for a miracle and don't"
  35. 370 print"get it";:forda=1to15:print"-";:ford=1to500:next:next
  36. 380 printtab(24)"[144]you're dead!![154]"
  37. 390 ford=1to2000:next
  38. 400 print"[145][145][145][145][145][145][145][145][145][145][145][145][145]          [211]elect difficulty level":goto430
  39. 410 restore
  40. 420 print"[145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]         [211]elect difficulty level"
  41. 430 restore:print"           #1[146][154] =  50 mile trek"
  42. 440 print"           #2[146][154] = 100 mile trek"
  43. 450 print"           #3[146][154] = 150 mile trek"
  44. 460 print"           #4[146][154] = 200 mile trek"
  45. 470 getm$:ifval(m$)<1orval(m$)>4then470
  46. 480 onval(m$)goto490,500,510,520
  47. 490 m=50:j=32:k=53:l=48:kk=3:goto530
  48. 500 m=100:j=49:k=48:l=48:kk=3:goto530
  49. 510 m=150:j=49:k=53:l=48:kk=2:goto530
  50. 520 m=200:j=50:k=48:l=48:kk=2:goto530
  51. 530 forgg=0to4:readg
  52. 540 ifg=-1thenprint"[147]":goto410
  53. 550 poke1918+gg,g:next
  54. 560 formm=0to5:readp
  55. 570 ifp=-1thenprint"[147]":goto410
  56. 580 poke1926+mm,p:next
  57. 590 forcs=0to13:poke56190+cs,0:next
  58. 600 data7,15,1,12,61,32,13,9,12,5,19,-1
  59. 610 poke1923,j:poke1924,k:poke1925,l
  60. 620 print"    good luck and good camel trekking."
  61. 630 ford=1to2000:next
  62. 640 print"[147][217]ou are in the middle of the [199]obie "
  63. 650 print"desert, at an oasis-----------------"
  64. 660 gosub2380
  65. 670 print"[217]our trek is just about ready to begin":goto880
  66. 680 ifc>m-1then1810
  67. 690 z=z-1:q=q+1:qq=0
  68. 700 ifz=1thenprint"[158]----- [215][160][193][160][210][160][206][160][201][160][206][160][199] [146]-----[144] get a drink[154]"
  69. 702 fordl=1to600:nextdl
  70. 710 ifz<0then2310
  71. 720 x2=int(rnd(1)*10+1)
  72. 730 ifq<kkthen870
  73. 740 c1=c1+x2
  74. 750 ifc1<cthen850
  75. 760 poke53280,2:poke53281,11
  76. 770 print"[147][158]                                       "
  77. 780 print" *** [212]he pygmies have captured you.*** "
  78. 790 print"                                       [146]":gosub2740
  79. 800 print"  [195]amel's [195]ream of [208]eople soup is their"
  80. 810 print"  favorite meal---":ford=1to3000:next
  81. 820 poke53280,6:poke53281,6:ford=1to500:next
  82. 830 printtab(25)"[144]b [145]u [145]r [145]p---[154]"
  83. 840 goto2040
  84. 850 ifc-c1<10thenprint"[158] [193][204][197][210][212]![146][154] [212]he pygmies are";c-c1;"miles behind":goto870
  85. 860 print"[212]he pygmies are ";c-c1;" miles behind you."
  86. 870 print"[217]ou have traveled ";c;" miles so far."
  87. 880 print"        [215]hat is your command?"
  88. 890 print"      (for choices press <f7>)"
  89. 900 print"[153]----------------------------------------[154]"
  90. 910 ifpeek(197)=64then910
  91. 920 ifpeek(197)=3thengosub2400:goto925
  92. 925 gety$:ify$="q"then63000
  93. 930 ifval(y$)<1orval(y$)>6then910
  94. 940 onval(y$)goto1260,1020,1120,1210,1300
  95. 950 t=int(rnd(1)*10+1)
  96. 960 ift>3then1800
  97. 970 poke198,0:print" [217]ou have been found in a state of "
  98. 980 print" unconsciousness."
  99. 990 s=3
  100. 1000 z=4
  101. 1010 goto680
  102. 1020 poke198,0:f=f+1
  103. 1030 print"[147]":gosub2600
  104. 1040 iff=8then1780
  105. 1050 gosub1420
  106. 1060 x1=int(rnd(1)*10+1)
  107. 1070 c=c+x1
  108. 1080 ifqq=1then680
  109. 1090 print"     [217]our camel likes this pace!"
  110. 1100 iff>5thenprint"    [158] but [146][154]--he is getting tired"
  111. 1110 goto680
  112. 1120 poke198,0:f=f+3
  113. 1130 print"[147]":gosub2670
  114. 1140 iff>7then1780
  115. 1150 gosub1420
  116. 1160 x1=int(rnd(1)*20+1)
  117. 1170 c=c+x1
  118. 1180 ifqq=1then680
  119. 1190 print"[217]our camel is[150] burning[154] up the desert sand"
  120. 1200 goto680
  121. 1210 poke53280,0:poke53281,0
  122. 1220 poke198,0:print"[147] [217]our camel thanks you.  [159]zzz-zzz-zzz-zzz[154]"
  123. 1230 f=0:c1=c1+10
  124. 1240 ford=1to2000:next
  125. 1250 poke53280,6:poke53281,6:goto680
  126. 1260 print"[147]":poke198,0:poke53280,11:poke53281,11
  127. 1270 forvb=1to7:print"[159][205]mm";:ford=1to100:next:next
  128. 1280 printtab(17)"[145][145][145][145][156]---- good water [146][154]"
  129. 1290 ford=1to100:next:poke53280,6:poke53281,6:goto1360
  130. 1300 print"[147]":poke53280,9:poke53281,9
  131. 1310 poke198,0:print"[217]our camel has";7-f;" good days left"
  132. 1320 print"[217]ou have";s;"drinks left in your canteen."
  133. 1330 print"[217]ou can go";z;"commands without drinking."
  134. 1340 print"you still have ";m-c;" miles to travel"
  135. 1350 ford=1to3000:next
  136. 1360 poke198,0:s=s-1:poke53280,6:poke53281,6
  137. 1370 ifs<0then1800
  138. 1380 ifs>2then1400
  139. 1390 print"[158]    ----[194]etter watch for an oasis[146]----[154]"
  140. 1400 z=4
  141. 1410 goto880
  142. 1420 a=int(rnd(1)*100+1)
  143. 1430 ifa>5then1700
  144. 1440 print"   [215]ild [194]erbers hidden in the sand have"
  145. 1450 print"  captured you. [204]uckily, the local sheik"
  146. 1460 print"  has agreed to their ransom demands---"
  147. 1470 print"  but---watch out for the pygmies!!!!"
  148. 1480 ford=1to4000:next
  149. 1490 print"":forda=1to40:print"[152]-";:ford=1to30:next:next
  150. 1500 print"[154] [217]ou have two new choices of commands"
  151. 1510 print"         #7[146][154] = [193]ttempt an escape"
  152. 1520 print"         #8[146][154] = [215]ait for payment"
  153. 1530 print"        [215]hat is your command?"
  154. 1540 print"[159]---------------------------------------[154]"
  155. 1550 getx$:ifx$="8"then1640
  156. 1560 ifx$<>"7"then1550
  157. 1570 x1=int(rnd(1)*10+1)
  158. 1580 ifx1<6then1610
  159. 1590 print"[195]ongratulations---you've escaped!!!"
  160. 1600 goto680
  161. 1610 print"[217]ou were mortally wounded by a pig"
  162. 1620 print"stabber while escaping."
  163. 1630 goto2040
  164. 1640 x1=int(rnd(1)*100+1)
  165. 1650 ifx1>24then1680
  166. 1660 print"[217]our ransom has been paid, you are free."
  167. 1670 goto680
  168. 1680 print"[212]he local sultan is collecting---wait--"
  169. 1690 ford=1to3000:next
  170. 1700 a=int(rnd(1)*10+1)
  171. 1710 ifa>3then1870
  172. 1720 print"[217]ou have arrived at an oasis. [217]our camel"
  173. 1730 print"is filling your canteen and eating figs."
  174. 1740 c=c+10
  175. 1750 z=4
  176. 1760 s=6:qq=1
  177. 1770 return
  178. 1780 print"[147][212]oo bad....you ran your poor old camel"
  179. 1790 print"too death!!"
  180. 1800 goto2040
  181. 1810 print"[150][147]  *********** [217][160][207][160][213][160][160][215] [201] [206] ***********"
  182. 1820 gosub2790
  183. 1830 print"[152]  [193] party is being given in your honor."
  184. 1840 print"[144]   [212]he pygmies are planning to attend.[154]"
  185. 1850 tc%=tc%+1
  186. 1860 goto2240
  187. 1870 x1=int(rnd(1)*100+1)
  188. 1880 ifx1>5then1980
  189. 1890 print"[217]ou have been caught in a sand storm!"
  190. 1900 x5=int(rnd(1)*10+1)
  191. 1910 x6=int(rnd(1)*10+1)
  192. 1920 ifx6<5then1950
  193. 1930 c=c+x5
  194. 1940 goto1960
  195. 1950 c=c-x5:ifc<0thenc=0
  196. 1960 print"[217]our new position is ";c;" miles so far."
  197. 1970 goto880
  198. 1980 x1=int(rnd(1)*100+1)
  199. 1990 ifx1>5thenreturn
  200. 2000 c1=c1+1
  201. 2010 print"      [217]our camel hurt his hump."
  202. 2020 print"  [204]uckily the pygmies were footweary."
  203. 2030 goto880
  204. 2040 u=int(rnd(1)*10+1)
  205. 2050 print"[150][217]ou died in the desert----------------[154]"
  206. 2060 gosub2930
  207. 2070 ifu>1then2110
  208. 2080 print"[212]h[217]e national camel's union is boycotting"
  209. 2090 print"your funeral!!